home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir38 / oscbas.zip / MAKE.BAS < prev    next >
BASIC Source File  |  1994-05-11  |  550b  |  29 lines
  1. 'makedata
  2.  
  3. OPEN "osc.dat" FOR OUTPUT AS #1
  4. PRINT #1, SPACE$(5000)
  5.  
  6. OPEN "mandel1.dat" FOR BINARY AS #2
  7.     x$ = INPUT$(7, #2)
  8.     FOR r = 1 TO 4
  9.         x$ = INPUT$(16000, #2)
  10.         PRINT #1, x$;
  11.     NEXT
  12. CLOSE #2
  13. OPEN "mandel2.dat" FOR BINARY AS #2
  14.     x$ = INPUT$(7, #2)
  15.     FOR r = 1 TO 4
  16.         x$ = INPUT$(16000, #2)
  17.         PRINT #1, x$;
  18.     NEXT
  19. CLOSE #2
  20. OPEN "plas1.dat" FOR BINARY AS #2
  21.     x$ = INPUT$(7, #2)
  22.     FOR r = 1 TO 4
  23.         x$ = INPUT$(16000, #2)
  24.         PRINT #1, x$;
  25.     NEXT
  26. CLOSE #2
  27. CLOSE #1
  28.  
  29.